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and go and 


ጋር ር. cement: 
fundamentais 
however and 


the Sinclair is directiy 
eapplicabie ito any computer 
regardiess of the number of 
belts and uwhisles they may 
contain. = computer is a 
computer is as computer, : 
LARKIN TSE2L2268 SPECTRUM DISC 
INTERFACE SYSTEH 

4s I indicated in the Previous 
newsletter, I bought a dist 
interface f fF OfR LARK Ik 
Electronics, LARKIN Electronics 
is owned by Larry Kenny who is 
a member of the Club. Here is 8 
brief assessment of the system 
as I found it tio date. 

The system I purchased consisted 
of en inierface card 
approximasteiu 7/7" x 4" a sinsie 
Shugart SALES disc drive and the 
cabling necessary to 
interconnect inge units to each 
ether and the computer. None of 
the hardware was in Cabinets. m 
temporary power SUPPLY was 
Provided. The total price ror 
the system wes $320 Canadian. 
When I first installed the 
system iiarryu Kenny uas present! 
the system wouid not run if my 
FGE monitor interface Card was 
connected be {eser the computer 
and the dist sustem., After 
Several tesis bu Larry. it 
appeared thai ih€ Cause of the 
Problem was the Length af the 
Cable connecting the interface 
card to the computer. A shorter 
Cable was made up and the system 
worked as adrertiseéd. 

Since the system is uncased, my 
first step was to fabricate 
Cabinets to install the system. 
The dist drive and interface 
Card uere pisced in one cabinet 
appraximateiy 4° uide, Be" deep 
and 3" hiSgh. ThE Pouer SUPPLY 
was feuor ked to provide better 
heat dissipation and instaited 
in @ modified Radio Shack 
Cabinet, Computer connection was 
via an ease connector that was 
hard mounted to the disc 
cabinet. & 3 core cabie 
interconnected the disc Cabinet 
to the power SUPPLY. TO 
accomodate having the ZX 53 edse 
connector on the disc interface 
board extendins from the rear ot 
the cabinet isa that the ፎወሩፎ 
printer couid be hooked up}, the 
fibbon cabie connecting the disc 
drive and the interface card uas 
Lengthened by $+", the computer 
fibbon cabie was extended 3” and 
the connectors on the computer 
interface ribbon Cable "uere 


feversed. 








BEREE 


When the Equipment was ins 
in the cabinets and connec 
the computer i 
expansion 2 
experienced the 
had at the outs 
adjusting s variable resistor on 
the interface board that the 
Problem vanished. The system is 
now uyorkins and to date has been 
reliabie. The system was Left 
running for ዱ5 hours to coax out 
ang Pfobiems but none occured. 
AS With any nes! system there are 
teething ersobiems but those 
found ia date are 
inconsequentiai. 


tailed 
ted to 
John OQtiger 
the system 

ms I 


ዙ 
0 
"m "i ' 


The system couid be improved but 
considering the price tag it is 


a good buy. Some 
first-impPressinn suggestions for 
improving the system are as 
follows: 

13i the system should be sold as 
a complete system inciuding 
Cabinets, few people have the 
toois or skiils to muster up the 
Parts and pParkase the system 

£i the peripheral bus Should be 
a standard £855 bus rather than 
the ZxX&i bus 

o] the operating system shouid 
be modified ሂሯ accomodate the 
keyboard dist instructions 
rather than USE calls 

43 dist formatting in 1 K tracks 
would save memory 

As Il indicated earlier, this is 
only a brief assessment of the 
System and I iniend to provide 
a more tompPzhensive report 
later. 





FROM THE EDITOR 
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oe L Uthat 6 uou knou, input 
From zoeineon &€ite!!! I mad just 
have 8 hear Problem With atl 
this excitement. 

Ho, sefriousziu folks, I aPpPpiaud 
those who have come Gut af the 
moodwock so to speak and have 
Put in their two cents worth. 
Mau I 3150 add that I af most 
لع ددع اع‎ with everything. 

The input from these PEOPLE 
reprezents What it if that thes 
are concerned with and where 
they mau wish to zee additiorna. 
support. You do not have 2 be 
an expert. You must realize that 
there are things that uou mad 
diztover that have manu تا‎ 
stumped. 

Who knows, uou MSG even 
surprise the so calléd Experts 
ihn their oun fields. iif you az! 
ME... I think that’s rather e€astu-- 
they are ali blurring 5ከኦከ9%ህ295=፤፡። 

Keep it up !!!!!፤11!!፤!፤!!!! 
The Editor, itonaue imn cheek: 








by David Salty 


Every computer enthusiast 
En JOYS buying and running neu 
software but that enthusiasin Cari 
be dampened if the program fails 
to Load or run according to the 
instructions CutlLined in the 
User’s manual, This Was ጠህ 


€xperience uhen first trgina ta 
Load and run Artic Zx FORTH Far 
the ToS 2003, The Following 
information I hope wili save the 
Users of ZX FORTH Same 
frustration. 

First of all the tog an is 
LORD "TYFÜETH" rather than What 
15 Sû boldly stated in the 
User's manual. This is at least 
a first step towards a 
Euccessful toad. 

Secondly for some reasori 
ERGOT only to itself and its 
creator the T75 1000 is 
reluctant to Load FORTH screens 
from the beginning of a tape of 











€ilent section between 
rams. fA more sure fire 
od is the following: 


J} When the first part of the 
Program has Loaded and the 
announcement comes ህዞ stop the 
fecordefr. 

2) Type 1 LORD tor the number 
of whatever screen you are 
(ዕዐዌ63 ከ9፤|. 


3) Rewind the tape to the 
tail end of the Last section 
Loaded. 

4) Start the tape. 

5) Hit Enter (Neu Linel. 


The VDU display will White 
out but not to worry! The 
Program has not crashed! In a 
few seconds the toading bare 
Will appear and the T/S 1000 
Will perform a normal toad. 
Repeat steps = to 4 to load the 
remaining FORTH screens. 

When Savings ron ک- پر تام‎ 
a fresh tape recor Some 3 "ነ 
noise of 2 በርክ. in BASIC at the 
beginning before saving the 


first screen. Reload at the line 
noice OC at the tail of the 
first Program. This method 
&hoUld save anyone a tot of 
trouble in loading and saving 
ZX FORTH and its screens. 

Copy to Ottawa Sinctiair User's 
Group on 3 Sept, 1985. 


Report from the Libfariatn 


by David Satly 


For those wha miss 
announcement at Augus 
I wish to inform uou 
shail not be present 
Until at Least the en 
December because I sha 
attending classes on 
Frocessing in libraries 
Algonquin College., Bur: 
time Bilt Harmer wilt b 
Care of bringing materia 
and from meetings althou 
mau continue to make 
feservations for Library 
materials bu calling me at 
731-2120. 


In the mean time I Wilt 
remain active behind the SCENES. 
At the moment I am rerecording 
eo 
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ibrary into coltections 
according to themes in order to 
help alleviate the problem of 
Lending only one articie to each 
Person at a time. Look for: 
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Astronomy #1 I2000,20681, 
Statistics Kit #1 [£1000], 
Electronics R1 [1000310 and 
Others. I also expect to finish 
very shortly a complete Listing 
Of the library holdings 
including books and periodicals 
thanks to the recent aquisition 
Of a coPpu of M Script. I Shall 
also let you know when our fir 
355ህር5 of ZX Computing arrive, 

Please! Please! Please! 
Contribute programs to the 

Libfaru. At the moment we ere 
woefully short of amy sort of 
Programs for the T/5 2068 and 
the Spectrum. 


Also remember the adage 
“Public Domain Software’ 


1 
/ 





Es. 


4 


(ህ Y 1 


LT 
በ; 4 =v, ፻ፐ ቦነ bee 


C. 


in 


!3 
ې ناسا 


ኀዛነት። ul foe 
m ua. 


eet -4የገ Ct 


e gi c “ኀ oet 1 


r~ 
t" 

ሦ፦ሥ” “ማጥ C. 
2 
a. 
"1-1 


map a سح‎ 


ree 


m qm poe n0 ZT. 
U^ 
© [ne 


"C ot 
ሦ” <= 
[በ ba. ft 
C e 
(x mou 


i O CL CL 
mw ې "لس‎ 


eda m 


= c 
UTEP 


- “ግ [ከ 
ፒ1 


RIO 


«A 


-— የ“ 


-+ 
tri 

24 € “ጓዛነ 1 m 
(m 
“ነ 

۱١ 1 


fl vu ect tz 


—1 
123 


cu 


የቶ p et rn 
ርጋ ፥*- 13. 8 جس‎ 

fa. 

U1 


~The TE 
m 7 
u.c 
"። "ነ 


- ቁ 
ኢፌ 
on 


e, 
..? 
ባው 
መሩ 
t 


in 
h) 
" ፥ r+ መጓ 


የ 
(በቦ 
TITI.. 

iri qmm 


ሜ ከስ 
Ee quc) 


Lt (aec dx ant "ገ ጄ. 
(i omy wc 111 ۷ xt€ 
m 


c8 
ከ 
zc 
tt! 


Cod d ቶ-4 
ግ an on 


1 ገገ 1 


ሙሁ፦” ሆት c € "m 


مې 7 


ሆሦታቅቀ 


Quin 
» Nera 
"m 
pm «a 
-77 X ات ام‎ 
AU. d ፦ቶ 24 
pp Cy vt ona EL 


ርባ 


ba 
73 [rp O 22 FT f 


fo በህሠ፦ዙጋኀጦጥጦ፦ሹ!የ 


1... 
سه‎ 
as 


w mico 


ü 
ሜ” 
iT 
١ 

4 


e fo ር: 
"ru 
በ፤ ፕ ፦ፋ ር3 73 የገ 0 


ul ed 


24 سي‎ 
(C 


mmonut 
rti 
=: 


ር ON pac. 
LU ፒህ 
Un 


٠ jt 
(f سم‎ በህ) de ملسم‎ 


T 1! 


›--ኀመ መ nee 
nT 


i mic mac 2 
ሥ ነከ ር። ቀ 


m 
zT e 


cro» 
2 
eee 

ኑ።- fti 


m: 
6 

“ግ 

ጽ 


1 
Pia 
ርነ 
et et Mal co.» ELMO اسو‎ 
ሥቶ 
- 
ایا‎ 


"ግ 
ፎዴ“ 
ou m 
-e 
مې‎ 
C) 
bt. 
0t 


— qm 
en 
2 
TE D 
“ሜ “ነ ېم‎ 
ud በ! የኀ ራቃ ሂ፲: => የኀ 
- 
Ww. 


ni 
rà 
የከ 
ገ 


2 
- 


የኸ CL 23 ር) ee [8 ዬ፤*- “ገ ር. mm‏ پس 
ዛጋ‏ 


«5 7j 


ET 


uw 


TE Aha: 
“ጣነ 11 "ግ re ርገ ኀ 


(በ -)۱۶ ۲ 
WT 


ር ፦ (01 ፲) fth =~, ntt 


m 


C cum -£0 €. 
D سلج‎ e وځ پس‎ 3 ome 
Qr. 130 

کم ااسس.مم 


“ Me etl 
tie SAIN CAE oni 
ud enn met 


T3 
r nm 
ሣግ የገ fe مه ډم‎ ao m 
፥ 


Apea 


1፲፤ oO cu 3 n‏ ىم 
چې eto‏ 


1 pu 2ጅ ፦ቶ ፣ጋ 10በ የ سم‎ 
bt. ኑ4. 


etc am rm E 


: “+ ሆኖት 


zm 


ba. PREET E 


“ሣ 737 
et "1 


ዮ፦ 


"m a 
.ما‎ ሁቶ ل3‎ Or ከበ پس سس‎ የ፲) 


(mf 7 


aom 


= 

ኑ* 

=ጋ اس‎ 
In fh 

e 


C eet 


የቶ የኀ 3 ከሰ 21 7 ራ+ 


E ፓፕ” 24 ክ “ኀግ “ኀ ገሻ “ኀ ርኀ 
۳ و-‎ gm enm 

“ግነ مم‎ (t 

٨ EU U 

Qr 3 tr nny ot 


የጋ ዘኀ= 


“ግ IF چم‎ 1 


شا 


m mt 
ዮት 
"rf 


m 
ኘ 
ርበ 
ርጋ ፒ፥ 


መ 
ዚ] (te 
Ep 


rti 
Un የ“ቶ 


C 
JACO 
modo e 


ሠ 


wt atm‏ “ سی 


mim FT TF In 
= 


wo 1፡ ህክ 
ግ 
ከ) 


"m ፲በ 


Qc uto 
በ. e c aT anm apo 
ርነ፣ “,3ቅ” 
23 --- in 
uz 
rm ٢ 
(በገ “ገ 


« (rtg m 


etam po ሓ,ቪሰ :ፐ 


€T Ungu 


eO Om 
ርጋ 
c9 


“ነ ما‎ 
meo r~ tft 
- 


ኀቦ ፻3 


“r - 


= 
L5. 
“ኀ ፤* CL. PHY 


{Tat co 
m 
ጮ e 


ማክ E. ° 


TAa 


p me 
(1 “ገ m 


በ 27 24 m.:— خم‎ 


-t opt in 


የያ ዘብ ዚገ] 2] ዚገ ፲1.ዮኮ4‏ ېم 


ርጋ አ: In 

Mam GG o IN Cy 
uoc ፎ 
m meo 


ئی bee durum “ገ m m‏ پ- 
ሯፎ #ቶ ጠ ሣነ fti‏ 
aL የቶ 1 780! የ ot‏ 


CQ mt 0 ከ3” 
c 
ከ8 ር) ቶቅ*- “ነ f= Ch! o 


— m6 


ጋ ۲4 


Auc 

”1 
m :3 የ32 “N 
Q rà nv 


Ci. 


0.. 





software for the ZX-81, TS18880, re&€jectz manu of the statements 
OL, and 2065. ilrite to them for that would normally rumn good if 
a free catalogue, at Batic. This if Partially due ቲር 
hard tà pinpoint ways in Which 
Zebra Systems Inc.,. the compiler differs from-that 
7-06 Jamaica mve., Of the resident interpreter arid 
Woodhaven, Ways, Partlu due to the fact that 7176 
ሀዘ ,ቴ=,ጩ. 334=3 Stetements do not Exist in the 
Telephone: 715811 296-2065 HcoderII compiier. 
This means that uou Will ha 
f good source for Spectrum to rewrite the offending 
software in Engiand is: Statements to suit HMcoderri or 
if that is not possible then you 
Software Supermarket, Will have to develop Soe routines 
B7 Howard’s Lane. that will do the same thing. 
London, Sie GNU, Some Programs after some Study 
England ጠቋ%ህ not be Convertable, 
RHiPhabetic sortation is 
Both the above firms accept VISE definate problem. The ier 
and Mastercard. 1S5 nobVicuziu the sast£ighment af 
Code values to the Letters. 
For those with Spectrum capa- AS far as chanaina wour Bazic 
abilitu on their 292585 کت‎ the Preagrams to run under Mcoderzil, 
following are the current top LE a Litt of fixes füollous this 
Spectrum software setlere ain article. 
Great Britain: The most Striking aspect of 
McoderII 35 the coniu INTEGER 
1. Match Dau mathamatics; it Will not accept 
2. Atit Atak dé€cimal constants, variables or 
3S. Dale Thompson“ Output numbers and when uou try 
Decath Lor: to Program around that, you May 
4. Knighttore Cun into the Limit on the 
ct. (Ghostbhbustersz Largezt integer that it will 
ይ, Bruce Lee accept ie ..t2z2750). However 
7, Underiwurlide these Problems do not appear 
Z2. Raid Over HMozcou unique to McoderlIIlI judaira 7 
So, Spy Hunter Literature from other compiler., 
16. Alien 5 Here are a feu fixes FOF some 7." 
the Problems: 
If we are going te add to the 
User Group’s Library, fame -IF RH:BE THEN PRINT “A I5 LESS 
thought should be given to the THAN E must be chanaed 10..፡፡፡ 
above tithes, IF BEA THEN FRINT "HB = LEO 
THAM E" 
Welle that’s it For this -IF RHzE THEN PRINT "AH EQUALS B” 
time. HaPpey computing to you must be Changed ta.. 
alti. 10 IF @:E THEN GOTO 4a 
-Leo Foss Z0 IF 6:8 THEN GOTO 468 


30 PRINT"R EQUALS B" 
40 e 8 8 5 $ 9 8 ፳ 8 E E 


-IF 5ጄ‹ር AND EA THAN FRIHT "E Is 
BETWEEN A AND C" MUST BE CHANGED 


| Pil ROS TT 01 8 TO €e ፳ 8 g 9 S 
MCODERII BASIC COMPILER oe Let eo | 
BG: Bill Harmer So IF CE THEN LET Ycv41 
40 IF  Y;:1 THEN  PREIHT "Bo IG 
BETWEEN A AND C" 
- TRE EXPONENTIAL NOTATION oF 





The advantage of & basic e ው E ፦ 
compiler over the built-in Basic dom cM crc MUT ig 
interpreter, is that the PEDER D PME د‎ „ACTUAL DECIMAL 
compiler is usualiu faster. It ፣. . ቢም  ር:. do HOME 

wes time bu doing the وا‎ ጋሙ መሙ Limiti ^ — uacr 
conversion from basic to machine USE. f. THEN PRINT "YOU CHOSE 
Language in advance in one Shot ir: LET A= COE changed to.... 
(compiling? so that when it is a ct OPE 7v ou — د‎ 
run texecution) it does not take S3 - A: ፈሠወርጅ Ag} THEN GOTO _ 50 
this time doing the لات‎ IF (CODE Agi >A THEN GOTO oe 
interpretation. 48 PRINT “YOU CHOSE ٤ 

McoderII is an improved ZX-ei TO ,..፡፡፡፡፡፡፡፡ 
version. The first thing one end 
notices however, when one goes ..... ጂዳ. es 
ahead and tries to convert a 
basic program is that Mcoderil 


—————— ፡፡፡፡፡ጭጫ፡ ስች ችችሻችሚመሚች3ወ89ፀወመመ8መ888883ወ፤ች በሻ 











ODDS AND ENDS 


3D TANK DUEL 


There is a need to make backup 
copies of programs purchased ወክ 
cassettes. A very useful program 
to make backup copies of just 
about any program is OO? and its 
relatives (TRICKY, 
etc...). However, there are some 
programs currently being sold 
that have purposely been made 
resistant to OO7. 


3D TANK DUEL is such a program. 
To see how the protection 
mechanism works, simply load the 
second part of the program as 
follows: 


LOAD "" CODE 


Observe that the program name 
will come out as TANK printed 
vertically downward, starting 
trom HOME position. This 
effectively messes up the 
Display file where MAXSPY (son 
of 007) transfers its Load 
routines. You can get around 


this obstacle by creating your 
Own dummy label or by proceeding 
as follows: 


1. Load the first part of the 


program with the command MERGE 
uis" then save with SAVE 
"SDTANKDUEL" LINE 130. 

2. Enter a RUN command to load 


the main program. Near the end 
of the load, keep the "Q" key 


pressed. Once loaded, the 
program will hold ዕዮ a short 
length of time (one second) 


provided "8G" is still pressed. 
During that time, press CAP/SHFT 
and then BRK, and the program 
should stop. Simply GOTO 100 to 
save (The pretty screen is lost, 
however). 

Marcel G Boult. 


MAXSPY,. 






TASWORD II AND A BLACK BORDER 


Some 
package may 
border and 


follows: 


users of 
prefer a 

light ink on 

paper. It can 


this excellent 
: black 
dark 


be done as 


Enter the BASIC mode to get 
access to the BASIC portion of 
TASWORD II. Edit line 10 and 


insert at the beginning of the 
line the additional commands 


BORDER 


O:PAPER O:INK 7. 


Then 


POKE addresses 64840, 64841, and 


64842 
command and 


THIS INFORMATION on 
string arrays and logical 
arithmetic may be of in- 
terest. 

Sinclair ZX-81 Basic 
lacks an IF... THEN... 
ELSE statement. In one 
specialised context, 
however, this can be 
mimicked with the use of 
string arrays, thus saving 
program space. 

Since one cannot have, 
for example: 


IF N=1 THEN PRINT 
A$(7) ELSE PRINT AS(8). 
one might seem to need two 
statements: 


IF N=1 THEN PRINT 
AS[7) | 

IF N<>1 THEN PRINT 
AS(8) 

In fact, they can both be 
replaced by the single 
statement PRINT AS(NOT 
N-1). 

A similar effect can also 
be produced, so long as N 
is not zero or negative, by 


with  O. 


Enter a RUN 


voila! 


Log 
statements 


Marcel G Boult. 


ical 






PRINT ልፄ![7 + SGN(N-1)); 
but that prints A$(6] if Nis 
zero or negative and in any 
case needs an extra pair of 
brackets. 

The idea can be extend- 
ed, provided always that 
the choice is between str- 
ings in the same array. For 
example; 


IF N»8 AND N<13 
THEN PRINT A$(25) 

IF NOT (N»8 AND 
N«13) THEN PRINT A$(6) 
can be replaced by 

PRINT A$(25-19*NOT 
(N»8 ANDN« 13). 


The same can even be 
done for more than two 
conditional statements; 


for example, the four lines 

IF A= 3 AND B>4 THEN 
PRINT ለቆ!7] 

IF A=3 AND B< =4 
THEN PRINT A$(8) 

IF A<>3 AND B>4 
THEN PRINT A$(23) 

IF A<>3 AND B< =4 
THEN PRINT AS$(24) 
can all be replaced by the 
single 

PRINT AS(7 + 16*(NOT 
A-3) + NOT B»4) 
with a considerable saving 
of space. 
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LRRKEN DISK-DRIVE 


Ive Got one t00..5»5»55»52 
Eu Jim Turner 





Hs a matter of fact, I think 
I've got the First one Larry 
B Let me go on about it for 
a bil. 


The first drive controller 
and drive that Larry Kenny 
brought me had a Few problems to 
Bau the Least. It wouldn't work 
with my computer, Larry had 
developed the whole system using 
his own ፎሯይ=ጆ and it appeared 


that the tolerances he used 
weren't uide enough. HE borrowed 
mu computer and spent some 


sieepless nights getting his 
Sustem to work on, not Just ጠህ 
computer but, any 20565. 

That problem out of the way. 
the next turned UF in the power 
&£UPPLu HE had Whipped up for me. 
It woutd get ይር hot, that I 
CouLdn't touch it and 
€vemtuatltu, one of the resistors 
or something (HEY. I never 
Said I was 5 techie) anu Way 
Something quit and Larry had to 
Come to the rescue again. 

That seemed to take care of 
the technical problems, but, 
efter I started using the drive 
e bit. it became Obvious that 
the DOS had a feu aS welt. 
Nothing mayor, Just annoying 
Little things that made ad- 
daptina to using a disk drive a 
bit harder... fOr instance: 


—at first, Larru had Used the 
Shifted "5" to move back through 
a typed in command. this 
movement also deleted the 
Character to the teft, just Like 
the delete key on the 2068. I 
Found muself constanttyu hiting 
the delete key instead of 
Shifted "5". 

I spoke to Larry about this 
and he changed the pos 
accordingly. 

—ahotheft problem; if code has to 
be saved, one must do some fancy 
POKING of z bute he x values 
before Saving. This Wat quite a 
Probtem for ጠዬ Since I don’t 
Speak "HEX", I Solved this bu 
انا‎ : 11۳ 5 a Little Program thet 
would tate a CODE file from tare 
and Save it to | disk. -The 
biggest Probiem...fMe I had to 
make myself think in a Whole new 
way. Programs toad so fast From 
disk that I can think of 
individual programs almost as 
Subroutines. Inagine, a basit 


Program that if only a menu 
routine. It accepts gour 
£etection and loads the 
appropriate program in under 3 
&eronds.... does it's jb and 
loads another. It’s a big step 
from 2866 tape loading. It*s an 
enormous step from the TS ipag 
tape loading. 

-The system comes uncased. Not a 
big Problem for some. Those who 
already have 2 feet of 
peripherals extending from the 
back of their machines won't 
Find this too disconcerting but 
For me, my recurring nightmare 
is about a 108 year old a kid 
spilling chocolate milk on an 
€xposed circuit, and the Lights 
going out all over town. 

I’ve got a pian For a case 
but as yet, it’s Just a plan. 
When it's finished, Ill bring 
it to one of our meetings and 
blow you all away by Loading a 
Program Like VU-3D in just aver 
6 seconds... (eat your hearts 
out). 

Simply, the system has it's 
Short-commings. But it does 
everuthing Larry designed it to 
do, at 8 Price that i5 Still 
below what Commidor owners have 
to pag for their disk systems 
that are only slightly Faster 
than tape. 


The Piece de resistance.. 


It works on Spectrum too!!! | 


NO Othef disk drive sustem 
For our computers can boast this 
feature. Those of US who have 
invested in a ROM switch and 
have experienced the software 
available from Jotiy olde 
England Will knou the 


Significance of this statement. 


Hunter board 


Plus much more 


xxCHLL FOR DCETHILS++ 


Bed -8 7 54 
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THE ZX-81/TS1000 NOTEBOOK 


From the beak "GOSURS" by 
Edwir and Shirley Gaby: 


This subreutine checks to see 
if another line can be printed 
on the screen. If not, it 
scrolls and sets up the pririt 
on line Ã1. 


Substitute your own line 
numbers for X, for instance 
X22 can be ۰. 


xad REM auto-scroll 

X10 if peek 16442 = č then 
scroll 

XcU if peek 16442 = 2 then 
poke 16442,3 

X329 return 


The following program 

will accept your input and 
place it irto a properly 
dimentioned array. It places 
your data inte an array R(1) 
ard also provides N ( the 
number cf elements in the 
array ነን MX ( the maximum 
value in the array ) and 

MN ) the minimum value 

value in the array ). If MX 
and MN are nct needed, delete 
the appropriate line numbers. 


1 REM array iriput 

412 let mx-ü 

CU print “Input Number af 
items in data" 


SW input n 

42 dim (ነገ) 

SA cls 

60 for i = 1 teo n 

70 print "a("sig") = “3 


8! input ali) 
92 if i= 1 then let 
mx=z=ali) 
122 print ali) 
110 if aliddmx then let 
mx=a (i) 





120 if ati) {mn then let 

mn=a (i) 
130 gesub X00 ፲፪ rem autescroll 
140 next i s 


NOTE: line i340 helps avoid 
errer coce 9 
Submitted: Orville Kenny 


CONVERTING PROGRAMS TO ZX-81 


ጠ'በባ፡ == መው (ie mebi GE CUED مس‎ 4ብበረጡ سیت‎ duxi Ard vius بت‎ ubÓES یې سم 669965 جنس .866660 ټسټ‎ feed) eee پټټت‎ GERA 889 میت‎ (UNES chi 


This article is the begin- 
ing of a series on carnverting 
programs intended far ather 
computers to ZX-81 Basic. 

Since general programming 
iceas are discussed as well, 
it will also be of interest 
to ail that wish to pain 
more insight inte and ideas 
for writing programs. 


MOTHEMATICS 


Other basics allow a 
formula to be expressed in 
the form of a simple equation 
thus: C=B-A , but with ZX 
basic you must always 
preface such a formula with 
LET. Other thar that and the 
fact that exponentiation is 
indicated in seme basics as 
av up arrow or መ ^ , there 
shouid be ne prablem with 
arithmetic in Basic. ( even 
FORTRAN uses the same sort cf 
formulas, symbols and variable 
names as is allowed in the ZX 


Sometimes LOG is used in 
ether basics to mear what the 
ZX calls LN, but both are lcg 
to base e-z.71028 rather than 
icg to base 14 that we studied 
in schooi. ( the inverse 
function of LN is EXF which 
raises e to the power specifie 
by the ruber following ). 
if you get LOG in a program 
to carnvert, gust convert it 


ل ——— ——— 


—— س ——- 


ease E 


to LN. If however you really 
reed log to base 19 in your 
program or mathematics, you 
can use the formulas 

LET LOG1@= (LN(X))/(LN(10OD). 
Note that seme basics require 
that the number that LN 
eperates on to be in brackets. 


One thing that can be a 
real problem is wher DEF 
arid FND or FNR is used. 

eg. 1۷ DEF FND(X)zXs**3 
eo LET Y=FND(3) 

Xwould return 7 
This allows a programmer to 
input a function into the 
program. The following is a 
method that the writer has 
used to duplicate this for 
the ረደ ጆ-፦ይ1 2 
17 print" input function 

equation or value" 

cO input a$ 
25 let y = VAL af 


This is based en the principle 
that VAL will evaluate the 
string that follows it as ar 
arithmetic statement. 


If MOD occurs in a Program 
cr the program is intended 
for integer basic, all the 
Civisians should be preceded 
by INT. The example cf 

Y MOD X can be replaced by 
Y~ CINTCY/X) *X). 











FoR TH 
_ORNMER 


Serry folks, no Forth Mind 
this issue. AS many ር" you may 
know, I have been working 
evertime sc ta speak on my 
disk drive and the ceonvenrsicr 
caf tape programs ta disk. 

The Forth programs that I 
have been using ie.. 

Abersaft and White Lightning 
are Spectrum programs ard my 
attempts to convert these to 
the 22680 have so far failed. 
Obvicusly I am not a goaod 
M/C programmer. 

Krigited Computers to the 
rescue. Shades of the White 
right! They have cbtained ar 
coverted White Lightning to 
run on the e868. Naw hopefully 
I will be able to transfer it 
ta disk and run it from there. 

Until then, most likely to 
the next issue, this sectior 
will address tutorials. 

Let's hear from all these 
Forth users out there. 





THE EDITOR 
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BINARY LOOK-SEE 


The other dau I needed to be 


able to see the binary bit 
Patterns of certain decimal 
numbers compared to the bit 


Patterns of gcthersg..... 


Here is the resuitina 
Frogqgram. Short and Sweet and it 
works. 


Jim Turner 


1@ INPUT a 

20 LET usa 

30 LET bz2 

406 DIM a£í8): LET cziea8 

50 FOR x=8 TO 1 STEP -1 

6ፎ LET 8፳ቁ(፡)=("፪ ANC INT (A/B 
}<> (ABI): LET azINT (A-B): LET 
C=CrB: NEXT x 

70 PRINT "$';a5;"M :=":ህ 

ae co TO 12 


GENERATION 


1 REM FOR THE 2068 RUN WITH E 
ORDER D,PAPER O,AND INK 7 
z REM FOR THE ZX81 MAKE THE F 
OLLOWING CHANGES 
5 FAST 
130 LET C= 52 
400 SLOW 
480 FAST 
10 RAND 
3 REM THIS PROGRAM WAS TAKEN 
FROM THE GATEWAY GUIDE TO THE Zx 
81 AND ZX80 PAGE 77.78 





4 REM THE DISPLAY IS PRINTED 
OUT ONTO A 8*8 GRID 
9 REM *xxINITIALIZATION3** 
10 RANDOMIZE i 
20 DIM AC100) 
30 DIM ጅ( 100) 
40 DIM E(8) 
50 LET ክ(1)=፦11 
ሬዐ LET E(2)=-10 
70 LET E(3)=-9 
BO LET E(4)=-1 
90 LET E(5)=1 
100 LET E(6)=9 
110 LET E(7)=10 
120 LET 41۹1 
130 LET C=30 
139 REM ##* RANDOM CELL S*»** 
140 FOR Z=1 TO 25 
150 LET R=INT (RND*100)-41 
160 LET ACR)=C 
170 NEXT Z 
175 LET ጠ=ዐ 
178 PRINT AT 10., 10:" GENERATION” 
180 Go TO 390 
189 REM **xxCALCULATIONS**** 
190 FOR X=i TO 100 
200 LET Co=0 
210 FOR B=1 TO B 
لات ته‎ LET B1-zX-E(CP) 
ASO LET Pi=Pi+(100 AND اط‎ :1)(- 
00 AND 71 
z40 IF B(PLi?I=C THEN LET COzCo-1 
AO LET Bi=xX+E(P) 
230 LET B1-Ei-(100 AND BRi1:z1»5-(1 
OO AND B1:100) 
z40 IF BCB1)=C THEN LET ርዐህ=ርር)+1 
250 NEXT B 
260 IF B(X) 0 AND ርህ<>= AND CO 
<23 THEN LET ል(ጆ)=ዐ 
270 IF E(X)=0 AND CO=3 THEN LET 
ACX)J=C | 
“80 NEXT X 
390 PRINT AT 10, 21:6 
499 REM **x*xDRAW ARRAY ** 
410 FOR Y=0 TO 8 
420 FOR X=1 TO 10 
430 LET B1l=Y#*10+x 
440 PRINT AT Y,X+1G;CHRS (ACE1) 


+128) 


450 LET BCBI)=A(B1) 
460 NEXT X 

470 NEXT Y 

490 LET G=G+i 

500 Go To 190 


a کک‎ 








MENUS MENUS MENUS MENU: 


I uas working on a Program 
th athe dat that required 
several mers to be Caiteéd 
during the run, Some of the 
menus uere even choices on other 


menus, 


White working, it seemed to 


me I was writing the Same code 
over and over for €ach menu. i 
decided that I uwouid write a 
£Eub-routinege that would Print 
them all. l 

The menus are contained in 
DEATH statements and are 
structured Like this: 


-number of choices on menu 


—inaximum number af 
ih a Choit 


-name ar ment 


-then texts to all the choices 


The Littie demo Proarain 
demonstrates that one need GOT; iti 
RESTORE ta the correct DATA 
statement., then cait the 
£iib-routine. The Selection is 
Meade using oniu the epace bar 
eed EWTER returns ta the main 
program with the Proper value if 
the Variakbkie “CHOICE”. 

Hs ucu can see. 8 choic ር፣ 

2 on the First menu wa ኒኒ 
automaticly taii the £ub-mentu 
and add 10 ቲር the value af the 
choice fade on the second menu, 

I'm not reaiy sure if mich 
tode 15 Saved bu using this 
technique far = email 
application Like this one but 1 
5 program reqired 5 or 3 menus 
to be calted at one Lime ar 
another, then this might be af 
spome use, 


ج ج ج ج چ چ چ چ ج چ ج چچ چاج يججج REM‏ 
CERG x‏ + 


PXi$tiTISXEREREXEIEE 


شا 
ra‏ 
ር3‏ 


545 RESTORE 2880. GO SUB Seve 
428 IF CHOICE=sS THEN RESTORE S8 
2535: G0 SUB 2202. LET CHOICE=SCHOL 
CE+10 KR 1 
338 PRINT HT 18,18; “CHOICE نان د‎ 
JAOGICE: STOP 
پوت‎ FER ج چ چ ب چ چ چ چ چ چ چ چچچ چچچ چچچ چچچ‎ 
* MENU SUB-ROUTINE = 
ج ج ج ج ج چ چ چ ج چ چ ج چ چ ج چ چ چ چچچ‎ 
=ሯሯኋ ۹ 
=ሯፎሯ=ሯ CLS 








Egis READ x,y: REM X-HIIMBER OF 
CHOICES 
Y= MAX LENGTH 
OF CHOC 1 
Ctix.r1: DIM ARTY! 
Hz: PEINT HT 1,15-(LEN 
=i 


TO X: READ Celia: N 


re vr 


ኣጊ Ur 


62 
ኻ፦ ጋ] 
ር) 
1 


چا 


TD 


(pu rm e 


6364 + 63 EL CI :وم‎ የ4 22 የ4 3 
ርጋ P OH EH RE ኪ) ኪነ 
na 


C LET eire NT i18-iIx"El1: ET 
GOilblMHzi1E Y £1: LET POSITIONHzZE 
on 
او تخ‎ FOR A= TÛ x-1: PEINT AT RO 
Lich ۽‎ COLUMN; C# i411: HEXT A 
sese GO SUB 5=ፎፎ 
تا د-5‎ IF INKEY£-"" THEN GO TO 227 
ሂጫ 
e 
SEES LET YzCODE IHKEYE: F Yz3z 
THEN 55 SUB 8286: LET POSITIOHN-E 
OSITION-4-11 END POUOSITIONZIIEOUr-xX-i1 
لو و ژ‎ AND POSITION=(ROGW4e-1i: : 
ZO SUB Eze 
SESE IF ٢ تش لاح‎ THEN CO TO کا لت‎ 
Sige GO TO E878 
2335 LET CHOICE-ZiIPUOSITION-REOLUUY!-4i 
23ፎሯ CLE : RETUAH 
SERE PRINT E FUSS IT TON, COLUMH; I 
HUERSE 2; VER 4:65 
Erie RETURN 
EEF FER 
55ሯ2 REM 
SEE REM 
=ሯሯሯ DATA 16.38. THAIN MENU. SOHO 
ICE Hl" . “CHOICE He’, “CHOICE FS. 
“CHOICE Hi", CHOICE FS". CHOICE 
HE’ ."CHOICE H7" CHOICE HS’  “ርቼ 
ICE RG’ ."CHOICE #ia" 
aoi DATA 5.8, SUE MEHII","CHOICE 
Hi". ‘CHOICE H2 ."CHOILE H3" CFR 
DICE Ha". "LHOICE #57 


Tru this: 


DRAW 100.1020,4100 


PLOT £23,228: 





CASSETTE THRE RECORD 


I nee€ded a Way to keep track 
Gf ጠህ -growing Libraru GF 
BFrograms. Uu-File seemed like it 
might do the trick but it was a 
bit CUmbersum to Load both files 
€ach time. Besides, I'd never 
uritten anu sort af record 
PpProaram before so I decided to 
do the definative BASIC tape 
record file. í(definative because 
it’s the only one I,ve written 





مه مسبت an‏ 


[፲፲፲ መጠ“ ጆ 


and BASIC because it's the only 
computer Languge I Know) 

1 is menu driven, saves oniy 
the number of records entered 
inot à huge DIMme«d string 
Variable whitch 35 usually half 
empty), prints to the screen or 
Printer and sorts tuo different 
ways (alphabeticaly and by tape 
numbet). By the Wau, when the 
Program sorts bu tape number, it 
alto sorts the programs on the 
tape bu Side and counter 
tocation. You can search for a 
single program or 8 whole. tape. 

The Prosram uses a Basic 
bubble sort and as a result can 
take a feu minutes to do its job 
when the record reaches a 
hundred entries or so. 


Jin Turner 
a R‘ 


Hdd a program. 
Delete a program. 


sort programs. 


B 
B 
NH. See programs. 
B 
E 


Save program file to tape. 
BH. Load a Program. 





10 84 


Tape Record 
45 ON ERR GO TO i880. GO TÛ اد‎ 
eo 
20 DIM 88 (2, 435) : LET prog=8 


1@8@ REM 


1005 PAPER 3: INK 7: BORDER 17 
E. CLS FRINT AT 7,10, .ده‎ “ሚክ 
: ;AT 7,0; OVER l1l" 





i238 LET z$-IHEKEYXt IF 28 ›'ሯ”" AN 

D gece" GR CODE z$27 THEN GO TŪ 
18527 

4635 GO TO i832 

1927 IF CODE z$-z7 THEN GO TO Fee 

e 

4@4@ LET zzUHi (z$i4+1 


i058 CLS : Gû TO (£2800 AND z£$-"i 
"74 (8080 AND 238='"2='! 4 i3000 AND = 
$="S"I+id4OO8 AND == eee A 
ND =ቁ='"= cU Pi ED BE TÉ-UOC 

13806 REM = 





1110 PRINT AT Pl.O.P$ip,1 TO 10) 
8 "IpSip,l1i TO 12) ,ፐጸ5 38, 
PRÍp,13); TAB 26; "GE “ips 


ip,14 TO 16) 





iise PRINT EETFLUUEH 

zae LEFRINT HT 2i,8;P5$:íp,1 TO 18 
TE 5 ህጂ፣!5.-11 TO 12i; TAE As 
E "PiP, 131; TAB FE; LE ‘SFE 
Sip, i4 TO 163: 
iz 18 LERINT RETURN 
4288 POKE 2255 5-٢ ,ሯ3: PRINT AT zi. 
&: PRINT : RETURN 
ፎሯሯሯ REM Fee دص ون سوه‎ m Pe UR TES 
ሯፎሯ25ሯ GO SUB 3280: FORE 22656, 
LET Proazpros4i 





gozo INPUT "Name" ";z*$: IF LEN =: 
i8 GR Z£z'"" THEN BEEF .5,-28: GO 
TO 2020 

F30 LET P5iíproa.,ili TO 11 =2# 
268408 INPUT "Tape number ”;፣2: IF 


LEN =2፥=ፎ THEN GO TO 2842 
e@d42 FOR دج د‎ TO LEN Z$: IF ፓ2 ፤ፓ፤ 
"O° OR zSizi;" 2" THEN GÛ TO =ፎፋሩ 


NEXT z: LET ps$iproa,11 TO i 
" AND LEN 2$=11425 

INFPLT "Side ";z*: ፲ኛ LEH zt 

1 THEN GO TO 2646 

ፎሯፋ= ፲ኛ z$:-"1" AND ناس نز جح‎ AND 

OIM AND z*€$«-"BbB'" THEN GO TO z 

845 

cese LET P€iíProg,is)2z$ 

zego INPUT "Counter # “IZE: ፲ኛ L 

EN z5:2 THEN GO TO 2862 

gee2z FOR z=1 TO LEN z$: IF =% !ፓ፤ 
UO" OR z$izi;" "2" THEN GO TO الات‎ 


HEXT z: LET psiproa,iá TO i 
" " AND LEH 2=2ቁ8‹=ሯፎ1+('" © AND 
£-11!4z5 

"fer Ps-prog: GO SUB 118 


mimm e s. 


C) E) 


Pap 
Tim PR 


1 


ከ) ኪነ” ame 
fy CO nm o 6) 
= ዘ gi 
سر‎ Pe 
۲ 


E “4. 
2 fg Ea 


RINT AT رلا لع‎ “Caorrect?’: 1 
$=INKEY$. GO TO 2zacerís ANE 
=z © N+ ھ1)‎ AND } 

ac FRINT AT El, i 

zia 209. FIXE zB it 28e: PRINT 


PRINT AT 21, e; 


co TO 2100-11100 በክር (INKEY Se Nó) 
-i100 AND INKEYs= 







። 81 






3900 FEM 

ceie POKE ፎ= 3555., PEIHT AT i2,e8 
;"HM unoie fiie" TAB 3ኛ: “መ: One rr 
caram“ TAB 17; "HH One tape": 


2015 LET 2S=INKEYSs: 

N GO TO 3018 

=2:=2ሯ IF z£-"1" OR 28='ፎ' GR z&-" 

THEN GO TO i3030 AND 2='3”1+‏ په 
+[25ፎፎ AND Z5$-"‏ دل GSO AND 238='ፎ‏ 


3025 GO TO 38128 
sese GÛ SUB 22080: CLS : GO SUE i 
=25: FOR لحم‎ TO prog: 


3035 IF print=i THEN GO SUB 1128 
;. PRINT : NEXT p 

S@GY IF PEIHT-i THEN GO TO 2050 
ScGO4Q GO SUB 1286: LPRINT : NEXT 
2252 2) SUB 12800: GO SUB 12508: F 
RINT INK 7; "END OF FILE": PAUSE 
e: GO TO 18082 

S580 CLE : INPUT “NAME? ";Z5$. IF 
LEH 29:10 THEN GÛ Tū 3see 

2205 GO SUB 32800 

S518 GO SUE 32ፎፎ: FOR x-z1 TO FRO 
GS: IF P£ix,1 TO LEN Z5$53-Z5 THEN 

LET Pzx: GO SUB (11808 AND PEINT- 
3) +(ኋ3ፎ5ፎ AND PRINT=e2:: GO TO 2852 
e 














CLOT ፳፳፳፳፪ | 





ON ERR GO TO 525868‏ اتک 


















2520 NEXT X =5=5 VERIFY “TAPE REC." 
3525 60 TO 3858 5 33 CLS : PRINT AT 21,0; INE 7; 
3530 CD 8 EE “TAPE OK": ON ERR GO TO 1690: PA 
2 USE 100: BEEP .Z,20: GO TO. ieee 
^ L Ie; S588 CLS : PRINT AT 21,0; INK 7; 
NEXT X l “TAPE ERROR": BEEP .75,-20: PARUS 
3540 PRINT INK 7; ج ت ل‎ E 458: ON ERR GO TO 18000: GO TO 
FPHUSE 8: GO TO 1000 41086 
35908 CLS : INPUT “TAPE 8 ";Z$. I 555025 REM 
F LEN Z$:2 THEN GO TO 38600 6018 CLS : PRINT AT 20,0;"IF vou 
9505 Por دچ‎ TD LEN Z$: IF 25417 ADDED TO THIS PROGRAM... DIC YO 
à n OR 25(2) ›”9" THEN GO TO see نا‎ RESRUE IT ۷٣٢ 7:1 س‎ OR NJ“ 
6@20 LET Z£-INKEY€£: IF Z£-"Y" چم‎ 
ce? NEXT 2: LET X£zi" " AND LEN SE Ri چا‎ ፎሮ To ይሯፋሯፎ $ 
poe v Sezo cO TUO im 
25459 GO SUB ጋ=ፎፎ 5 چ دق‎ IF Z$=" THEN GO TO, 10 
cogo GO SUB 12800: FOR x-1 TO PRO Beso CLS : PRINT AT 21,08; “START 
IF P$&ix,11 TO 12) =*% THEN LET TAPE THEN PRESS ANY KEY": PAUSE 
=x: GO SUB (1180 AND PRINT=1} + Q: CLS : ON ERR RESET . E د‎ TI 
220 AND PRINT-£) 7880 ON ERR RESET : STOP 
S36 NEXT X: gp AT 21,0; INK aege INPUT “WHICH PROGRAM? 


: FINISHED": FAUSE @: GO To 18 


e 


5010 IF LEN 75210 OR 28=”” THEM 
$ 






"M "o e co TO oaa 1 " qe 
CLS PRINT AY 21, sees GEES FOR 2-1 TO FROG: IF ፓሯቁ=ሠ ፤2 
IF INKEYS= OF ME 22925 NEXT E ሽሽ... 
k= Y ፣ Se. iE X 
EN LET prints لح‎ (4. AND INKEY$£-"P" =0 
3: PRINT AT z1, በጠ 
“> RETURN GO 
S810 GO TO 25028 GE 
4006 REM a 
ail CLS : INPUT "HM ALPHABETICLY 
kE BY TAPE "ተድ 1 ee ee eee 595586 INPUT "DELETE THIS PROGRAMY 
46880 IF 2$::°13" AND Z5$:5"2" THEN " GRON' XS 


GO ፐር اه‎ a 
4210 CLS : LET A=1: LET Bee: FRI aca 4 : 

NT AT 10,12; INK 7; "SORTING": IF Sese FOR F=P TO FROG: LET دز اع‎ 
لح تن دس‎ TREN GO TO 4588 PEXizcli: NEXT 2: LET PFRüGzPEOGG-i 
42208 FOR xz1l1 TO PROG-1 - GO TO i088 


"A IF x$="¥" THEN GO To 8ጸፎ=ይ 


4250 FOR v-x TO PROG esae ON ERR GO TO S688: DIM Vif 
4246 IF P$iyY.1 TO 10)»-P$íix,1i1 TO FOG,16:: FOR ጆ=3 TO PROG: LET wus 
ii THEN GO TO 4280 ix,1 TO 16) <P t(x%,1 TO 25) NEXT 

4250 LET B$-P£iv) x 

4260 LET P&iv)zPEix) 8510 DIM وع‎ ۶85 1 2158: FOR Xz1 

LET P&Ix!)z-B$ TO PROG: LET P$iX,1 TO 16) sUgiz,‏ تا سه 
NEXT Y 1 TO 35): NEXT X: DIM ህ8፤(1)‏ 4280 

4290 NEXT X: BEEP .2,0: GO TO ið Bs28 RETURN 

ee | : S600 DIM U£i1): DN ERR RESET : F 
4506 FOR x-1 TO PROG-1 RINT AT 10,128; INK TF; "FILE FULL" 
4510 FOR Y-x TO PROG : BEEP 1,-20: PAUSE ወ: GO TD 180 
4520 IF Val P$ívY.11 TO 12) › =ህጪ e 

PE£ix,11 TO i23 THEN GO TO 4550 apas SAVE “TAPE REC." LINE 3= 


4532 LET ጅቓ=ምሦዔ!፣ነ) : LET Fiyi =ሯቻ%ዷ ! 
x1: LET Fei =ጅ 

4558 NEXT Y: HEXT X 

4500 LET Wel: FOR Z-i TO PROS 

4510 IF ٢٢ د‎ 131 TO iz) ሩ ›ምቹ8 دا‎ 

i TO 12) THEN GO TO 47080 

462 HEXT Z 

4630 BEEF .2,08: GO TO 1826 

4700 FOR xzü i. z-1 By the way folks, I must 

4718 FOE ግያ s d ui = mr bot ነ 5 “ነነ” “ኦኮ ን ግት” حر‎ 
720 IF URL P£iv,14 TO 161441086 apolegise rer RNE ERNE en 


4, 


AND VAL Fir, 32) =8) › =ሣጊእ Pix, the last issue that indicated 
4 "THEN GO TO 4756 UAL PsiX,13ic- VQ..II Issue III. Please 

E E N E 8 
መ 5 LET وغ چغ‎ ፤ዣፕ Y: LET Fir) چا‎ ! change your copy to read 
xj: LET Pix) =58 . VOL. II ISSUE IV. 
4750 HEXT ye HEXT ጆ: LET ا‎ = + : This month £5 is issue V. 


GSO TO 4620 
De CLS : SAVE “TAPE REC." LINE 


e 

=ፎሮፎ= PRINT AT 28,8; "REWIND TAPE 
AND PLAY FOR UVER 
IFICATION’; AT 18,2 


Keep those cards and letters 
Coming. ወ" = یو‎ what??? 








F LLEF 


Listing 1. File Manager program for the ZX-81 and TS-1000. 


100 
20g 
210 


215 


220 
238 
2490 
25g 
260 
27 
289 
29 
seg 
216 
328 
SSe 
348 
ونت‎ 
368 
376 
38e 
39 
395 
و4‎ 6 
419 
2090 


2198 
S15 
==ሪኃ 
=52ሠ 
542 
S50 
569 
5760 
289 


1990 
4212 
1015 
1920 
19560 
1052 
10955 
1042 
1050 
10690 
10760 
4262 
1898 
1995 
1190 
1112 
1122 
1138 
1146 
1145 
113598 
1169 
1178 
1180 
3922 
19160 
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Microcomputing, March 1983 


REM A LISTS PROGRAM FOR THE ZX81 
REM MAIN MENU 

CLS 

SLOW 


PRINT TAB 73"THE LISTS PROGRAM" 
PRINT 

PRINT *1.. ADD RECORD" 

FRINT 

PRINT "2..CHANGE RECORD" 

PRINT 

PRINT "3..DELETE RECORD" 

PRINT 

PRINT "4..LIST ALL RECORDS" 
PRINT 

PRINT “S..SEARCH FOR A RECORD" 
PRINT 

FRINT"6..SO0RT RECORDS" 

PRINT 

PRINT"7..SAVE RECORDS TO TAPE" 
PRINT 

PRINT"8..SET UP NEW LIST FILE" 
PRINT 

PRINT "9..LIST FIELDS" 

PRINT 

PRINT 

PRINT "WHICH DO YOU WISH TO DO?'; 


INFUT A 

LET A=INT ል 

IF ል > ይ AND A < 10 THEN GOTO $69 
CLS 

PRINT "PLEASE CHOOSE 1-9" 

GOTO 2352 

CLS 

GOSUB A#1 922 

GOTO 212 


REM ADD RECORDS 

LET NxN + 1 

SCROLL 

PRINT "RECORD NUMBER "£N 
IF N«*-M THEN GOTO 18628 
LET NaM 

SCROLL 

PRINT "NO MORE RECORDS CAN BE ADDED" 
GOTO 1928 

FOR Isl TO N1 

SCROLL 

PRINT N$(1)1 


INPUT IS(N,D(I,1D0 TO D(I.2)) 
PRINT I$(N,D(1,1) TO D(I,2)2)1 
SCROLL 

NEXT I 

SCROLL 

PRINT "CHANGE ANYTHING? "$ 
INPUT AS 

SCROLL 

IF AS(1)="Y" THEN GOTO 1068 
SCROLL 

PRINT "RECORD “3Ns" ADDED" 
SCROLL. 

PRINT “ADD MORE RECORDS?"; 
INPUT AS 


1929 
1922 
1959 


2000 
2019 
2011 

2029 
2050 
2040 
29050 
28060 
29710 
2888 
20990 
2895 
2188 
211g 
2120 
2139 
2148 
2145 
21590 
21690 
2176 
2180 
2200 
2219 


2229 


2230 
2240 
2250 


2255 


2260 
2279 
2289 
2285 
2298 
2380 
28092 
2819 
29100 
2919 
2928 
2938 
2948 
29356 


IgA 
5ሀ/19 
3826 
2222 
304€ 
3060 
5272ወ 
5282 
=ኃግፀ 
3188 
3118 
3128 
3138 
3122 
3135 
3142 
3152 
3168 
3178 
3182 
319g 
3195 
32090 
3212 
3228 
3238 
3250 
3268 
5272 


SCROLL 
IF ልፄ(1)መ"ሃ" THEN GOTO 1909 
RETURN 


REM CHANGE RECORD 

SCROLL 

SCROLL s 
PRINT "TO CHANGE @ RECORD, YOU MUST" 
SCROLL 

PRINT "ENTER THE RECORD NUMBER FOR" 
SCROLL 

PRINT "THAT RECORD. DO YOU WISH TO" 
SCROLL 

PRINT "SEARCH FOR THE RECORD NUMBER?"; 


INPUT AS 

SCROLL 

IF A$(1)-"Y" THEN GOSUB 5888 
CLS 

SCROLL 

PRINT "RECORD NUMBER TO CHANGE: “1 
INPUT A 

LET A*INT A 

SCROLL 

IF A>® AND A«xN THEN GOTO 2288 
PRINT “INVALID RECORD NUMBER” 
GOTO 2909 

FOR ፲=3 TO Ni 

SCROLL 


PRINT N$(I):$1$(A,D(I,1) TO D(I,2)) 
SCROLL 

PRINT TAB 10)" "CHANGE?"; 

INPUT AS 

SCROLL 

IF AS(1)<>"Y" THEN GOTO 23090 
PRINT N$(1)j 

INPUT ፲ቁ(ፅ,5(1፲,1) TO D(T,2)) 
PRINT I$(A,D(I,1?) TO D(I,2)0) 
SCROLL 

NEXT I 

SCROLL 

PRINT "FINISHED WITH RECORD "5A 
SCROLL 

PRINT "CHANGE OTHER RECORDS?"; 


INPUT AS 

SCROLL 

IF A$(1)-"Y" THEN GOTO 92 
RETURN 

REM DELETE A RECORD 

IF N»9 THEN GOTO 8 
SCROLL 

PRINT “NO RECORDS IN FILE" 
GOTO 333d 

SCROLL 

PRINT “ITEMS ARE DELETED BY RECORD" 


SCROLL 

PRINT "NUMBER. RECORD NUMBERS MAY" 
SCROLL 

PRINT "CHANGE AFTER AN ITEM IS DELETED" 
SCROLL 

PRINT "DO YOU WISH TO SEARCH FOR THE" 
SCROLL 

PRINT "RECORD?"; 

INPUT AS 

SCROLL 

IF A$(1)€e"Y" THEN GOSUR 5009 
SCKOLL 

PRINT "RECORD NUMBER TO DELETE: "i 
INPUT A 

LET ል=፲ከክፐ A 

IF ል>ይ AND A<=N THEN GOTO 5252 

SCROLL 

PRINT "INVALID RECORD NUMBER" 

GOTO 3900 

FOR I#t TO N1 

SCROLL 

PRINT N$(I):$I$(65,D(I,1? TO D(I1,2)) 





32860 

z9e 
522 
5216 
3322 
3332 
3342 
S358 
S368 


S400 
34985 
3418 
3420 
3438 
3458 


3460 
3479 


sepe 
3919 
3928 
3938 
3949 
395g 


سر 
4212 
4215 
4829 
4950 
4040 
4045 
4p5e‏ 
4062 
4272 
49795 
40680 
4090 
4095 
4100 
4118 
4122 
4121 
4123 
4125 
41309 
4142 
41560 
4160 
4172 
4175 
4162 
419 
4282 
4218 
4220 
4250 
4240 
4259 
4320 
4305 
4519 
4520 
4550 
4549 
43550 
4569 
4379 
4262 
4390 
4422 
46900 
4618 
4629 


NEXT I 


m m, ምጫ ፥ 


SCROLL 


PRINT "DELETE THIS RECORD?"; 
INPUT AS 

IF AS(1)="Y" THEN GOTO 3368 
SCROLL 

PRINT "DELETE CANCELLED" 
GOTO 20 

IF ASN THEN GOTO 34560 


FAST 

FOR I#A TO N-i 
LET ፲ቆ(1፲)መ18%(1+1) 
NEXT I 

SLOW 

LET NeN-1 


SCROLL 
PRINT "RECORD DELETED" 


SCROLL 

PRINT "DELETE ANY OTHER RECORDS?" 
INPUT AS 

SCROLL 

IF AS(1)@"Y" THEN GOTO 3018 
RETURN 


REM LIST RECORDS 
SCROLL 
LET A= 
PRINT "PRINT ALL RECORD FIELDS?"; 
INPUT ልቆ 
IF A$(1)9"Y" THEN LET A=} 
SCROLL 
FAST 
FOR ፲መ=3 TO Ni 
LET 8 
IF ል=1 THEN LET ACI) #2 
NEXT I 
SLOW 
LET J#Ni 
IF ልፅ=3 THEN GOTO 4226 
SCROLL 
PRINT “ENTER Y FOR EACH FIELD" 
SCROLL 
PRINT "YOU WANT PRINTED: " 
LET Je 
SCROLL 
FOR I#1 TO 1 
SCROLL 
PRINT አክፄ(1)1" ?'; 
INPUT AS 
PRINT AS (1) 
IF AS(1)<¢>"Y" THEN GOTO 42168 
LET JeJ«*1 
LET A(J) =I 
NEXT I 
SCROLL 
PRINT "PRINT TO SCREEN OR PRINTER(S/F)" 
INPUT ልቆ 
IF AS(1)@#"P" THEN GOTO 46090 
SCROLL 
SCROLL 
PRINT TAB 5:181" LIST" 
SCROLL. 
FOR 1=1 TO N 
FOR K#1 TO J 
SCROLL 
PRINT N®(A(K))SIS(I,D(ACK),1) TO DCGA OO ,2)2) 
NEXT K 
SCROLL 
NEXT I 
GOTO 4990 
FAST 
LPRINT TAB 51141" LIST" 
LFRINT 


4630 
4649 
4650 
4660 
4679 
4680 
469 
4700 
4960 
4919 
49290 
4939 
4950 


SOOO 
58010 
S020 
502360 
S040 
5050 
2060 


S080 
22085 
S990 
IIIS 
2122 
5112 
2120 
2122 
5125 
5126 
5127 
5128 
9129 
S130 
51468 
2150 
5168 
5179 
21869 
S198 
S200 
2210 
2229 
S238 
5240 
2259 
S509 
S524 
22905 
$5510 


52272 


5222 
2242 
5550 
S568 
29570 
5282 
S592 
S600 
و وس‎ 
5919 
$920 
5922 
3950 


6208 
6818 
6928 
6921 
6825 
eg5ug 
6040 
6958 
69060 
60790 


FOR 1መ1 TO N 

FOR K-1 TO J 

LPRINT 

LPRINT N$(A(K0)0P:ISC(I,DXOA QOO ,1( TO DIA(K),2)) 
NEXT ቦር 

LPRINT 

NEXT I D 
SLOW 

SCROLL 

PRINT "ANOTHER LIST?"j 

INFUT AS 

IF à$(1)-"Y" THEN GOTO 6 

RETURN 


REM SEARCH FOR RECORD 
SCROLL 
PRINT "WHICH FIELD TO SEARCH ON:" 
FOR I=1 TO N1 
SCROLL 
PRINT N$(I)4" )"د‎ 
INPUT وم‎ 
IF à$(1)»"Y" THEN GOTO 51900 
NEXT I 
SCROLL 
PRINT "SELECTION CANCELLED" 
GOTO 5900 
SCROLL 
PRINT "ENTER THE SEARCH STRING"$ 
INPUT AS 
LET A*LEN وه‎ 
IF A«1 THEN GOTO S119 
IF ልረ=(5(1፲,2)-5(1,3)+1) THEN GOTO 5129 
LET ል=(5(1፲,2)-5(1,1)+1) 
LET ልፄ=ልፄ(1 TO A) 
LET AmA-1+D(I,1) 
LET Fea 
LET ሀ=ዕ 
FAST 
FOR J=} TO N 
IF A$»1S$(J,D(I,1) TO ል) THEN GOSUB 0902 
IF ር=1 THEN GOTO 52600 
NEXT J 
SLOW 
SCROLL i 
PRINT "SEARCH COMPLETE" 
SCROLL 
IF F=Ø THEN PRINT "RECORD NOT FOUND" 
GOTO 5990 
SCROLL 
SCROLL 
PRINT "RECORD NUMBER "3J 
FOR K=1 TO حم‎ 
SCROLL 
PRINT N$(03I1$(J,D(K,1) TO D(K,2)) 
NEXT K 
SCROLL 
PRINT "CONTINUE SEARCH?"$ 
INPUT B$ 
IF B$(1)-"N" THEN LET ዐ=1 
LET Fei 
RETURN 
SCROLL 
PRINT "ANOTHER SEARCH?"| 
INPUT A$ 
IF AS(1)="Y" THEN GOTO 06 
RETURN 


REM BUBBLE SORT RECORDS 

SCROLL 

PRINT "SORTING TIME DEPENDS ON " 
SCROLL 

PRINT “NUMBER OF RECORDS" 

SCROLL 

PRINT “WHICH FIELD TO SORT BY:" 
SCROLL 

FOR ፲መ1 TO ከ41 

SCROLL 


UB— —————— a a UUU اا ا هه‎ endl 








640890 
ሬወግፀ 
ሬ1ወ2 
6110 
6128 
613509 
6140 
6158 
6168 
6179 
6189 
6199 
THEN 
6208 
6218 
6228 
6252 
62690 
62708 
6280 
62910 
eco 
6912 
6928 
6925 
6936 
6950 


7090 
7912 
7929 
7930 
7909490 
7942 
7845 
7950 
70690 
7070 
79090 


Bwae 
8818 
822 
8039 
6842 
5ወ=ኃ 
Be6eQ 
8961 
8278 
808% 
8398 
512 
8119 
81268 
81309 
8135 
8140 


81528 
8169 


8179 
8189 
8182 
8184 
8186 
8198 
8195 
8202 
8219 
82209 


8225 


82560 
8249 
8250 
8222 
5262 
827ሠ 


PRINT N$(1I)0;4" و9"‎ 
INPUT AS 

IF A$(1)«"Y" 
NEXT I 
SCROLL 
PRINT "SORT CANCELLED" 
GOTO 692828 

SCROLL 

FAST 

FOR J=1 TO N-1 

FOR K=J TO N 


THEN GOTO 61560 


IF I$(J,D(I,1) TO D(I,2)) <= IS(K,D(I,1) TO 


GOTO 6259 

LET BS=I¢(J) 
LET I$(J)s1I$(K) 
LET 1% (K) BS 
NEXT K 
NEXT J 
SLOW 
SCROLL 
PRINT 
SCROLL 
PRINT"SORT ON ANOTHER FIELD?"; 
INPUT AS 
SCROLL 

IF A$(1)»"y" 
RETURN 


"SORT COMPLETE" 


THEN GOTO 4023 


REM SAVE PROGRAM AND DATA TO TAPE 
SCROLL 
PRINT 
SCROLL 
PRINT “BEGIN RECORDING, 
SCROLL 
PRINT 
IF INKEYS 
SCROLL 
SAVE L$ 
GOTO 8 


"PUT CASSETTE IN TAPE RECORDER" 
THEN " 


"PRESS ANY KEY TO SAVE LIST"$ 
-"" THEN GOTO 4. 


REM SET UP NEW LIST 

SCROLL 

PRINT "WHAT LIST NAME TO USE?"; 
INPUT L$ 

SCROLL 

PRINT "HOW MANY RECORD FIELDS?'"; 
INPUT N1 

PRINT Ni 

SCROLL 

LET K=15 

PRINT “MAXIMUM NUMBER OF CHARACTERS IN" 
SCROLL 

PRINT "DESCRIPTION IS (@-15)?"5 
INPUT K 

IF K»15 THEN LET KeiS 

IF K< ይ THEN LET Ke 

SCROLL 

LET L=31-k 

PRINT "MAXIMUM SIZE OF DATA FIELD" 
SCROLL 

PRINT "IS "11.14" CHARACTERS" 

DIM N$(N1,K) 

DIM A(N1) 

DIM D(N1,2) 

SCROLL 

SCROLL 


PRINT "NOW ENTER THE FIELD DESCRIPTIONS" 


SCROLL 

PRINT "AND FIELD LENGTHS: "35 
LET ۹1 
SCROLL 

FOR I=1 TO Ni 
SCROLL 

LET AS=e"" 
PRINT "FIELD 
INFUT AS 


"و" 


D(1,2)) 


8272 
8275 
828g 
8298 
839 
6318 
8312 
8315 
8517 
8328 
asse 
6222 
6242 
8350 
8362 
8378 
8362 
8398 
6428 
6418 
8428 
64522 
6435 
8437 
8439 
54462 
5422 
e902 
8919 
8928 
8938 
8942 
8952 


PRINT ልፄ 

LET AS=AS+" ss 
LET N$ (1)=A$ 

SCROLL 7 

PRINT "FIELD LENGTH (1-"$£L1")2;"jI 
INPUT ል e. 

IF ል‹1 THEN LET ዶል=3 

IF A>L THEN LET AsL 

PRINT ል 

LET D(I,1)8J 

LET JeJ+A 

LET D(I,2)9J-1 

SCROLL. 

NEXT I 

LET JeJ-1 

LET Neg 

LET MINT ((8000-N1*4(51-L*120)/J) 
SCROLL 

PRINT “MAXIMUM NUMBER OF RECORDS" 
SCROLL 

PRINT “POSSIBLE IS ABOUT 
SCROLL 

PRINT “HOW MANY RECORDS 
INPUT A 

LET AsINT ል 

IF A>@ AND A«M THEN LET 
DIM I$(M,J) 

SCROLL 

PRINT L$;" LIST SET UP" 
SCROLL 

PRINT "PRESS ANY KEY TO 
IF INKEYS ="" THEN GOTO 

RETURN 


"$M 


DO YOU WANT?"; 


MaA 


RETURN 
B940 


TO MENU" 


9eooe 
9920 
99390 
9848 
9952 
90660 
9265 
9979 
9389 
9990 
9199 
9195 


REM LIST FIELDS 
SCROLL 
PRINT TAB 511061" LIST FIELDS" 
SCROLL 
FOR I=! TO Ni 
SCROLL 
SCROLL 
PRINT N$(I) 
NEXT I 
SCROLL 
PRINT "PRESS ANY KEY TO RETURN TO MENU"; 
SCROLL 
9110 IF INKEYS =”" THEN GOTO 9112 


9900 RETURN 
—— ———ÁQÀ— — áÁ— ——— i 


The Preceeding program is a 

Great Little File manager 
Proaram for the ZeE1 or T5188. 
Next Netus Letter, die ህ3 ሂኒ 
include some rerinements amd a 
Feu hints on addamptinasg 3.1. Par 
the 2665. 
i By. the Way. there 35 a CORY of 
this Fragrem in Gur tape Libra 
in Case uou don t feet iike 
typing it alt ini. wus t bof Ff GUI 
the tape from David Satty atid 
COP it ! 
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